home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)ua.d64 / dsp.wild < prev    next >
Text File  |  2007-02-28  |  508b  |  33 lines
  1. // DELETE "EXT.WILD"
  2. // SAVE   "EXT.WILD"
  3. //  BY ─AVID ╘URNER - 5/10/85
  4. //
  5. // ─OES WILD THINGS IF
  6. // RUN A LONG TIME.
  7. //
  8. ╨╥╧├ WILD ├╠╧╙┼─
  9.   ╘╥┴╨ ┼╙├-
  10.   ╒╙┼ TURTLE
  11.   HIDETURTLE
  12.   GRAPHICSCREEN(0)
  13.   BACKGROUND(1)
  14.   PENCOLOR(11)
  15.   PLOTTEXT(-94,92,"╨RESS ╙╘╧╨ KEY TO END!")
  16.   X:=0
  17.   ╠╧╧╨ 
  18.     X:+5
  19.     ╞╧╥ C:=1 ╘╧ 6 ─╧
  20.       PENCOLOR(C)
  21.       ┼╪╔╘ ╫╚┼╬ ┼╙├
  22.       CIRCLE(0,0,X)
  23.     ┼╬─╞╧╥ C
  24.   ┼╬─╠╧╧╨ 
  25.   ╫╚╔╠┼ ┼╙├ ─╧ ╬╒╠╠
  26.   ╘╥┴╨ ┼╙├+
  27. ┼╬─╨╥╧├ WILD
  28. //
  29. WILD
  30. ╨╥╔╬╘ "┘OU SHOULD HAVE LET IT";
  31. ╨╥╔╬╘ "RUN LONGER"
  32. ┼╬─ ""
  33.